home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / specials.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  660 b   |  26 lines
  1. /*
  2.                                 S P E C I A L S . C
  3. */
  4.  
  5. #include "iccomp.h"
  6.  
  7. ESTRUC_ *specials(type, marg)
  8.     E_TYPE_
  9.         type;
  10.     ESTRUC_
  11.         *marg;                              /* array of arguments */
  12. {
  13.     register unsigned
  14.         count;
  15.  
  16.     if (type == f_execute)
  17.         return(execute(marg));              /* full list of arguments */
  18.  
  19.     count = marg->type;                     /* count # of arguments */
  20.  
  21.     catargs(marg);                          /* catenate multiple args */
  22.     gencode(marg, op_push_imm, count);      /* # of arguments of fun */
  23.     callrss(marg, type, count + 1);         /* call function */
  24.  
  25.     return (marg);
  26. }